/ PD Collection CD 1 / PD Collection CD 1.iso / programer2 / blib / Blib_Types

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 11 2a 7c 73 74 | 61 72 74 20 54 79 70 65 |....*|st|art Type|
|00000010| 73 0d 00 02 14 2a 7c 21 | 54 79 70 65 73 20 6c 69 |s....*|!|Types li|
|00000020| 62 72 61 72 79 0d 00 03 | 07 2a 7c 21 0d 00 04 38 |brary...|.*|!...8|
|00000030| 2a 7c 21 56 65 72 73 69 | 6f 6e 20 31 2e 30 30 20 |*|!Versi|on 1.00 |
|00000040| 2d 20 28 43 29 20 49 61 | 6e 20 50 61 6c 6d 65 72 |- (C) Ia|n Palmer|
|00000050| 2c 20 31 34 74 68 20 4e | 6f 76 65 6d 62 65 72 20 |, 14th N|ovember |
|00000060| 31 39 39 32 0d 00 05 07 | 2a 7c 21 0d 00 06 51 2a |1992....|*|!...Q*|
|00000070| 7c 21 54 68 69 73 20 6c | 69 62 72 61 72 79 20 68 ||!This l|ibrary h|
|00000080| 61 73 20 72 6f 75 74 69 | 6e 65 73 20 66 6f 72 20 |as routi|nes for |
|00000090| 69 64 65 6e 74 69 66 79 | 69 6e 67 2f 63 68 61 6e |identify|ing/chan|
|000000a0| 67 69 6e 67 20 63 68 61 | 72 61 63 74 65 72 73 20 |ging cha|racters |
|000000b0| 61 6e 64 20 73 74 72 69 | 6e 67 73 2e 0d 00 07 10 |and stri|ngs.....|
|000000c0| 2a 7c 73 74 6f 70 20 54 | 79 70 65 73 0d 00 08 04 |*|stop T|ypes....|
|000000d0| 0d 00 09 15 2a 7c 73 74 | 61 72 74 20 46 4e 74 6f |....*|st|art FNto|
|000000e0| 6c 6f 77 65 72 0d 00 0a | 1b 2a 7c 21 46 4e 74 6f |lower...|.*|!FNto|
|000000f0| 6c 6f 77 65 72 20 28 20 | 73 74 72 69 6e 67 20 29 |lower ( |string )|
|00000100| 0d 00 0b 07 2a 7c 21 0d | 00 0c 44 2a 7c 21 52 65 |....*|!.|..D*|!Re|
|00000110| 74 75 72 6e 73 20 74 68 | 65 20 67 69 76 65 6e 20 |turns th|e given |
|00000120| 73 74 72 69 6e 67 20 77 | 69 74 68 20 61 6c 6c 20 |string w|ith all |
|00000130| 63 68 61 72 61 63 74 65 | 72 73 20 6d 61 64 65 20 |characte|rs made |
|00000140| 6c 6f 77 65 72 20 63 61 | 73 65 2e 0d 00 0d 11 dd |lower ca|se......|
|00000150| a4 74 6f 6c 6f 77 65 72 | 28 53 24 29 0d 00 0e 2d |.tolower|(S$)...-|
|00000160| ea 20 52 24 2c 41 25 2c | 43 25 2c 4c 25 3a 4c 25 |. R$,A%,|C%,L%:L%|
|00000170| 3d a9 28 53 24 29 3a 52 | 24 3d 22 22 3a e7 20 4c |=.(S$):R|$="":. L|
|00000180| 25 3d 30 20 8c 20 3d 22 | 22 0d 00 0f 37 e3 41 25 |%=0 . ="|"...7.A%|
|00000190| 3d 31 20 b8 20 4c 25 3a | 43 25 3d 97 28 c1 53 24 |=1 . L%:|C%=.(.S$|
|000001a0| 2c 41 25 2c 31 29 29 3a | e7 20 43 25 3e 36 34 20 |,A%,1)):|. C%>64 |
|000001b0| 80 20 43 25 3c 39 31 20 | 8c 20 43 25 2b 3d 33 32 |. C%<91 |. C%+=32|
|000001c0| 0d 00 10 13 52 24 2b 3d | bd 28 43 25 29 3a ed 3a |....R$+=|.(C%):.:|
|000001d0| 3d 52 24 0d 00 11 04 0d | 00 12 14 2a 7c 73 74 6f |=R$.....|...*|sto|
|000001e0| 70 20 46 4e 74 6f 6c 6f | 77 65 72 0d 00 13 04 0d |p FNtolo|wer.....|
|000001f0| 00 14 15 2a 7c 73 74 61 | 72 74 20 46 4e 74 6f 75 |...*|sta|rt FNtou|
|00000200| 70 70 65 72 0d 00 15 1b | 2a 7c 21 46 4e 74 6f 75 |pper....|*|!FNtou|
|00000210| 70 70 65 72 20 28 20 73 | 74 72 69 6e 67 20 29 0d |pper ( s|tring ).|
|00000220| 00 16 07 2a 7c 21 0d 00 | 17 44 2a 7c 21 52 65 74 |...*|!..|.D*|!Ret|
|00000230| 75 72 6e 73 20 74 68 65 | 20 67 69 76 65 6e 20 73 |urns the| given s|
|00000240| 74 72 69 6e 67 20 77 69 | 74 68 20 61 6c 6c 20 63 |tring wi|th all c|
|00000250| 68 61 72 61 63 74 65 72 | 73 20 6d 61 64 65 20 75 |haracter|s made u|
|00000260| 70 70 65 72 20 63 61 73 | 65 2e 0d 00 18 11 dd a4 |pper cas|e.......|
|00000270| 74 6f 75 70 70 65 72 28 | 53 24 29 0d 00 19 2d ea |toupper(|S$)...-.|
|00000280| 20 52 24 2c 41 25 2c 43 | 25 2c 4c 25 3a 4c 25 3d | R$,A%,C|%,L%:L%=|
|00000290| a9 28 53 24 29 3a 52 24 | 3d 22 22 3a e7 20 4c 25 |.(S$):R$|="":. L%|
|000002a0| 3d 30 20 8c 20 3d 22 22 | 0d 00 1a 38 e3 41 25 3d |=0 . =""|...8.A%=|
|000002b0| 31 20 b8 20 4c 25 3a 43 | 25 3d 97 28 c1 53 24 2c |1 . L%:C|%=.(.S$,|
|000002c0| 41 25 2c 31 29 29 3a e7 | 20 43 25 3e 39 36 20 80 |A%,1)):.| C%>96 .|
|000002d0| 20 43 25 3c 31 32 33 20 | 8c 20 43 25 2d 3d 33 32 | C%<123 |. C%-=32|
|000002e0| 0d 00 1b 13 52 24 2b 3d | bd 28 43 25 29 3a ed 3a |....R$+=|.(C%):.:|
|000002f0| 3d 52 24 0d 00 1c 04 0d | 00 1d 14 2a 7c 73 74 6f |=R$.....|...*|sto|
|00000300| 70 20 46 4e 74 6f 75 70 | 70 65 72 0d 00 1e 04 0d |p FNtoup|per.....|
|00000310| 00 1f 15 2a 7c 73 74 61 | 72 74 20 46 4e 69 73 75 |...*|sta|rt FNisu|
|00000320| 70 70 65 72 0d 00 20 1f | 2a 7c 21 46 4e 69 73 75 |pper.. .|*|!FNisu|
|00000330| 70 70 65 72 20 28 20 63 | 68 61 72 61 63 74 65 72 |pper ( c|haracter|
|00000340| 24 20 29 0d 00 21 07 2a | 7c 21 0d 00 22 39 2a 7c |$ )..!.*||!.."9*||
|00000350| 21 52 65 74 75 72 6e 73 | 20 54 52 55 45 20 69 66 |!Returns| TRUE if|
|00000360| 20 63 68 61 72 61 63 74 | 65 72 20 69 73 20 61 6e | charact|er is an|
|00000370| 20 75 70 70 65 72 20 63 | 61 73 65 20 6c 65 74 74 | upper c|ase lett|
|00000380| 65 72 2e 0d 00 23 11 dd | a4 69 73 75 70 70 65 72 |er...#..|.isupper|
|00000390| 28 43 24 29 0d 00 24 28 | ea 20 43 25 3a 43 25 3d |(C$)..$(|. C%:C%=|
|000003a0| 97 28 43 24 29 3a e7 20 | 43 25 3e 36 34 20 80 20 |.(C$):. |C%>64 . |
|000003b0| 43 25 3c 39 31 20 54 48 | 45 20 3d b9 0d 00 25 06 |C%<91 TH|E =...%.|
|000003c0| 3d a3 0d 00 26 04 0d 00 | 27 14 2a 7c 73 74 6f 70 |=...&...|'.*|stop|
|000003d0| 20 46 4e 69 73 75 70 70 | 65 72 0d 00 28 04 0d 00 | FNisupp|er..(...|
|000003e0| 29 15 2a 7c 73 74 61 72 | 74 20 46 4e 69 73 6c 6f |).*|star|t FNislo|
|000003f0| 77 65 72 0d 00 2a 1f 2a | 7c 21 46 4e 69 73 6c 6f |wer..*.*||!FNislo|
|00000400| 77 65 72 20 28 20 63 68 | 61 72 61 63 74 65 72 24 |wer ( ch|aracter$|
|00000410| 20 29 0d 00 2b 07 2a 7c | 21 0d 00 2c 39 2a 7c 21 | )..+.*||!..,9*|!|
|00000420| 52 65 74 75 72 6e 73 20 | 54 52 55 45 20 69 66 20 |Returns |TRUE if |
|00000430| 63 68 61 72 61 63 74 65 | 72 20 69 73 20 61 6e 20 |characte|r is an |
|00000440| 75 70 70 65 72 20 63 61 | 73 65 20 6c 65 74 74 65 |upper ca|se lette|
|00000450| 72 2e 0d 00 2d 11 dd a4 | 69 73 6c 6f 77 65 72 28 |r...-...|islower(|
|00000460| 43 24 29 0d 00 2e 29 ea | 20 43 25 3a 43 25 3d 97 |C$)...).| C%:C%=.|
|00000470| 28 43 24 29 3a e7 20 43 | 25 3e 39 36 20 80 20 43 |(C$):. C|%>96 . C|
|00000480| 25 3c 31 32 33 20 54 48 | 45 20 3d b9 0d 00 2f 06 |%<123 TH|E =.../.|
|00000490| 3d a3 0d 00 30 04 0d 00 | 31 14 2a 7c 73 74 6f 70 |=...0...|1.*|stop|
|000004a0| 20 46 4e 69 73 6c 6f 77 | 65 72 0d 00 32 04 0d 00 | FNislow|er..2...|
|000004b0| 33 15 2a 7c 73 74 61 72 | 74 20 46 4e 69 73 61 6c |3.*|star|t FNisal|
|000004c0| 70 68 61 0d 00 34 1f 2a | 7c 21 46 4e 69 73 61 6c |pha..4.*||!FNisal|
|000004d0| 70 68 61 20 28 20 63 68 | 61 72 61 63 74 65 72 24 |pha ( ch|aracter$|
|000004e0| 20 29 0d 00 35 07 2a 7c | 21 0d 00 36 31 2a 7c 21 | )..5.*||!..61*|!|
|000004f0| 52 65 74 75 72 6e 73 20 | 54 52 55 45 20 69 66 20 |Returns |TRUE if |
|00000500| 74 68 65 20 63 68 61 72 | 61 63 74 65 72 20 69 73 |the char|acter is|
|00000510| 20 61 20 6c 65 74 74 65 | 72 2e 0d 00 37 11 dd a4 | a lette|r...7...|
|00000520| 69 73 61 6c 70 68 61 28 | 43 24 29 0d 00 38 3b ea |isalpha(|C$)..8;.|
|00000530| 20 43 25 3a 43 25 3d 97 | 28 43 24 29 3a e7 20 28 | C%:C%=.|(C$):. (|
|00000540| 43 25 3e 39 36 20 80 20 | 43 25 3c 31 32 33 29 20 |C%>96 . |C%<123) |
|00000550| 84 20 28 43 25 3e 36 34 | 20 80 20 43 25 3c 39 31 |. (C%>64| . C%<91|
|00000560| 29 20 8c 20 3d b9 0d 00 | 39 06 3d a3 0d 00 3a 04 |) . =...|9.=...:.|
|00000570| 0d 00 3b 14 2a 7c 73 74 | 6f 70 20 46 4e 69 73 61 |..;.*|st|op FNisa|
|00000580| 6c 70 68 61 0d 00 3c 04 | 0d 00 3d 13 2a 7c 73 74 |lpha..<.|..=.*|st|
|00000590| 61 72 74 20 46 4e 69 73 | 6e 75 6d 0d 00 3e 1d 2a |art FNis|num..>.*|
|000005a0| 7c 21 46 4e 69 73 6e 75 | 6d 20 28 20 63 68 61 72 ||!FNisnu|m ( char|
|000005b0| 61 63 74 65 72 24 20 29 | 0d 00 3f 07 2a 7c 21 0d |acter$ )|..?.*|!.|
|000005c0| 00 40 32 2a 7c 21 52 65 | 74 75 72 6e 73 20 54 52 |.@2*|!Re|turns TR|
|000005d0| 55 45 20 69 66 20 74 68 | 65 20 63 68 61 72 61 63 |UE if th|e charac|
|000005e0| 74 65 72 20 69 73 20 61 | 20 6e 75 6d 65 72 61 6c |ter is a| numeral|
|000005f0| 2e 0d 00 41 0f dd a4 69 | 73 6e 75 6d 28 43 24 29 |...A...i|snum(C$)|
|00000600| 0d 00 42 28 ea 20 43 25 | 3a 43 25 3d 97 28 43 24 |..B(. C%|:C%=.(C$|
|00000610| 29 3a e7 20 28 43 25 3e | 34 37 20 80 20 43 25 3c |):. (C%>|47 . C%<|
|00000620| 35 38 29 20 8c 20 3d b9 | 0d 00 43 06 3d a3 0d 00 |58) . =.|..C.=...|
|00000630| 44 04 0d 00 45 12 2a 7c | 73 74 6f 70 20 46 4e 69 |D...E.*||stop FNi|
|00000640| 73 6e 75 6d 0d 00 46 04 | 0d 00 47 15 2a 7c 73 74 |snum..F.|..G.*|st|
|00000650| 61 72 74 20 46 4e 69 73 | 61 6c 6e 75 6d 0d 00 48 |art FNis|alnum..H|
|00000660| 1f 2a 7c 21 46 4e 69 73 | 61 6c 6e 75 6d 20 28 20 |.*|!FNis|alnum ( |
|00000670| 63 68 61 72 61 63 74 65 | 72 24 20 29 0d 00 49 07 |characte|r$ )..I.|
|00000680| 2a 7c 21 0d 00 4a 3c 2a | 7c 21 52 65 74 75 72 6e |*|!..J<*||!Return|
|00000690| 73 20 54 52 55 45 20 69 | 66 20 74 68 65 20 63 68 |s TRUE i|f the ch|
|000006a0| 61 72 61 63 74 65 72 20 | 69 73 20 61 20 6c 65 74 |aracter |is a let|
|000006b0| 74 65 72 20 6f 72 20 6e | 75 6d 65 72 61 6c 2e 0d |ter or n|umeral..|
|000006c0| 00 4b 11 dd a4 69 73 61 | 6c 6e 75 6d 28 43 24 29 |.K...isa|lnum(C$)|
|000006d0| 0d 00 4c 4d ea 20 43 25 | 3a 43 25 3d 97 28 43 24 |..LM. C%|:C%=.(C$|
|000006e0| 29 3a e7 20 28 43 25 3e | 39 36 20 80 20 43 25 3c |):. (C%>|96 . C%<|
|000006f0| 31 32 33 29 20 84 20 28 | 43 25 3e 36 34 20 80 20 |123) . (|C%>64 . |
|00000700| 43 25 3c 39 31 29 20 84 | 20 28 43 25 3e 34 37 20 |C%<91) .| (C%>47 |
|00000710| 80 20 43 25 3c 35 38 29 | 20 8c 20 3d b9 0d 00 4d |. C%<58)| . =...M|
|00000720| 06 3d a3 0d 00 4e 04 0d | 00 4f 14 2a 7c 73 74 6f |.=...N..|.O.*|sto|
|00000730| 70 20 46 4e 69 73 61 6c | 6e 75 6d 0d ff          |p FNisal|num..   |
+--------+-------------------------+-------------------------+--------+--------+